home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / MemoNoteStack 4.0 / background_2781.txt < prev    next >
Encoding:
Text File  |  1988-03-06  |  3.5 KB  |  174 lines
  1. -- background: 2781 from stack: in.0
  2. -- bmap block id: 5747
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global gVersionId
  9.   setversionId
  10.   hide message box
  11.   show menuBar
  12.   put "Version"&&gVersionId into field VerNumber
  13.   pass opencard
  14. end opencard
  15.  
  16.  
  17.  
  18. -- part 8 (button)
  19. -- low flags: 00
  20. -- high flags: 0000
  21. -- rect: left=253 top=298 right=321 bottom=278
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 16560 / 16560
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: Next
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   go to next card
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 9 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=228 top=298 right=321 bottom=254
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 21847 / 21847
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Home
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   go to home
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 17 (button)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=203 top=298 right=321 bottom=229
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 15420 / 15420
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Prev
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   go to prev card
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 31 (field)
  76. -- low flags: 01
  77. -- high flags: 0000
  78. -- rect: left=42 top=279 right=295 bottom=140
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 10
  84. -- style flags: 256
  85. -- line height: 13
  86. -- part name: VerNumber
  87.  
  88.  
  89. -- part 32 (button)
  90. -- low flags: 00
  91. -- high flags: 8003
  92. -- rect: left=107 top=88 right=110 bottom=195
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: MemoNote
  101. ----- HyperTalk script -----
  102. MemoNoteButton-- part of the MemoNotes‚Ñ¢ system by Peter Fraterdeus
  103. V2.1 / 26 Jan 1988
  104. on mouseUp
  105.   get the short name of me
  106.   send it
  107.   set the name of me to "MemoNote"
  108. end mouseUp
  109.  
  110. on mousedown
  111.   if the name of me contains "card Button" then
  112.     Answer "Transfer this button to the Background?" with "Cancel" or "Yes"
  113.     if it="yes" then
  114.       set lockscreen to true
  115.       put userLevel into templevel
  116.       set userLevel to 5
  117.       choose button tool
  118.       click at the loc of me
  119.       domenu cut button
  120.       domenu background
  121.       domenu paste button
  122.       domenu background
  123.       choose browse tool
  124.       put templevel into userLevel
  125.       exit mousedown
  126.     end if
  127.   end if
  128.   if the optionKey is down and the shiftkey is not down then
  129.     set the name of me to "ShowNotes"
  130.   else
  131.     set the name of me to "MemoNote"
  132.   end if
  133.  
  134. end mousedown
  135.  
  136.  
  137. -- part 34 (button)
  138. -- low flags: 00
  139. -- high flags: 0000
  140. -- rect: left=435 top=298 right=321 bottom=460
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 24317 / 24317
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: First
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   go to first card
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 35 (button)
  157. -- low flags: 00
  158. -- high flags: 8003
  159. -- rect: left=94 top=117 right=139 bottom=194
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Show Scripts
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   edit script of this stack
  171. end mouseUp
  172.  
  173.  
  174.